'###########################################################################
'#                                                                         #
'#           CONTEST DUPE AND WPX PROGRAM PRINT-OUT PROGRAM                #
'#                               by                                        #
'#                    Bj. Madsen  -+-  VE5FX                               #
'#                  Dec. 1986  (Rev. July 1987)                            #
'#                                                                         #
'###########################################################################
'
'  This program will read a previously-created file of callsigns from disk to
'  memory.  It will then make a ten-column print-out, printing 500 calls per
'  page.
'
CLEAR ,7000
CLEAR ,50000
DIM CS$(3000) : N = 1
'-------------------------------------- title display on screen
  LINE (0,0)-(640,5),3,bf
  LINE (0,0)-(10,200),3,bf
  LINE (607,0)-(617,200),3,bf
  LINE (0,181)-(617,186),3,bf
  LINE (0,30)-(640,35),3,b
  PAINT (20,10),2,3
  PAINT (20,33),1,3
  COLOR 3,2
  LOCATE 3,25:PRINT " V E 5 F X  -  Print-Out Program "
  COLOR 1,0
  LOCATE 13,20:PRINT"What file do you want to read from";:INPUT INFILE$ :COLOR 1,0
  
LOADFILE:
  OPEN "I",#1,INFILE$
    WHILE NOT EOF(1)
      INPUT #1,CS$(N)
      LET N = N + 1
    WEND

  LET N = N - 1
CLOSE : COLOR 1
'
LOCATE 13,20:PRINT "There are ";N;" calls on file.               "
COLOR 3
LOCATE 15,15:PRINT "Make sure printer is set up and ready to go........"
LOCATE 17,17:PRINT "...... and press <ENTER> to begin printing";:INPUT qq$
COLOR 3:PRINT TAB(3) STRING$(73,"_");:COLOR 1,0
LOCATE 20,15:PRINT"What is the date (comma OK)";:LINE INPUT DA$
'        
PRINTIT:
  OPEN "PRT:" FOR OUTPUT AS #2: PRINT #2,CHR$(27)"[""4""w"  
  PRINT #2,TAB(10) STRING$(120,"%")
  PRINT #2,TAB(15) "  LISTING FOR VE5FX ........ ";DA$
  PRINT #2,TAB(15) "        Filespec: ";INFILE$
  PRINT #2,TAB(10) STRING$(120,"%")
  PRINT #2," "
'------------------------------------------------------- start printing
  LET Q=1 : LET I=50 : LET X=1 : LET F=1        'set start point & interval
 
 PRINT.A.LINE:   
          PRINT #2,TAB(10)  CS$(Q);:        PRINT #2,TAB(23) CS$(Q+I);
          PRINT #2,TAB(36)  CS$(Q+(I*2));:  PRINT #2,TAB(49) CS$(Q+(I*3));
          PRINT #2,TAB(62)  CS$(Q+(I*4));:  PRINT #2,TAB(75) CS$(Q+(I*5));
          PRINT #2,TAB(88)  CS$(Q+(I*6));:  PRINT #2,TAB(101) CS$(Q+(I*7));
          PRINT #2,TAB(114) CS$(Q+(I*8));:  PRINT #2,TAB(127) CS$(Q+(I*9))
        IF CS$(Q+(I*9)) = "" THEN F=0
        IF Q/50 = INT(Q/50) THEN GOTO NEXT.PAGE
        LET Q = Q + 1
    GOTO PRINT.A.LINE 
    
 NEXT.PAGE:
    IF F=0 THEN THATS.ALL
    FOR S=1 TO 10:PRINT#2," ":NEXT S
     X=X+1  : Q = Q + 451
     PRINT#2,TAB(120)"... page ";X
    FOR S=1 TO 5:PRINT#2," ":NEXT S
   GOTO PRINT.A.LINE
  
 THATS.ALL:
   PRINT#2," ":PRINT#2," "
   PRINT#2,TAB(10) STRING$(90,">"); "   Total calls on file = ";N
  END
ENDIT: